20 IFPEEK(50326)=198THEN30
22 PRINT"        WAIT....LOADING CODE[146]"
25 LOAD"DCATMLP.D",8,1
30 CLR:DIMPF$(150):CLOSE4:CLOSE2:OPEN15,8,15
35 REM***SCREEN FORMAT***
39 PRINT"[147]"
40 PRINT"   THIS PROGRAM WILL READ YOUR DISK             DIRECTORY SORT AND"
44 PRINT"   PRINT  IT IN  ALPHABETICAL ORDER"
50 PRINT"      INSERT DISK TO BE CATALOGED"
52 PRINT"                HIT F 1 [146] "
54 PRINT"              WHEN  READY "
56 GETA$:IFA$=""THEN56
57 IFA$="[133]"THEN100
59 GOTO56
100 REM***FORM HEADER OF NAME,ID,BLOCKS FREE****
110 OPEN2,8,2,"#":GOSUB1000:PRINT#15,"U1";2;0;18;0:PRINT#15,"B-P:"2;162
120 GET#2,I$:GET#2,D$:CLOSE2:ID$=I$+D$:OPEN1,8,0,"$0:%%2"
130 CH$="                 "+"":SYS50323
140 DH$="                 "+"":SYS50323
150 H$=LEFT$(CH$,16)+ID$+STR$(PEEK(251)+256*PEEK(252))
160 OPEN2,8,0,"$0":GOSUB1000:DH$="                "+"":SYS50323
170 IFSTTHENCLOSE2:GOTO2000
200 REM****FORM ARRAY OF PRG NAMES***
210 FORCT=1TO150:FS$="                 "+"":SYS50323
220 IFSTTHENCT=CT-3:CLOSE2:GOTO2000
230 PF$(CT)=FS$+" "+ID$+STR$(PEEK(251)+256*PEEK(252)):NEXT:PRINT"TOO MANY FILES"
1000 REM***ERROR TRAPPING***
1010 INPUT#15,E,G$,K$,L$:IFE<20THENRETURN
1020 IFE=74THENPRINT"             DISK NOT PRESENT":CLOSE15:GOTO20
1030 PRINTE;G$;L$;K$:CLOSE15:END
2000 SYS49152,CT,PF$(1)
2001 PRINT"[147]":PRINT"    DO YOU WANT HARD COPY?     Y/N[146]"
2002 GETA$:IFA$=""THEN2002
2003 IFA$="Y"THEN2008
2004 IFA$="N"THENPRINT"[147]":END
2008 PRINT"NOW PRINTING[146]":OPEN4,4:PRINT#4,CHR$(27);"@";
2009 PRINT#4,CHR$(27);"D";CHR$(20);CHR$(50);CHR$(76);CHR$(0);
2010 PRINT#4,"              ";H$
2015 PRINT#4,CHR$(27);CHR$(15);
2030 FORN=1TOCTSTEP2:PRINT#4,CHR$(27);"1";
2040 FORK=NTON+1
2050 PRINT#4,CHR$(9);PF$(K);
2060 NEXTK
2070 PRINT#4,CHR$(9);"[156]";CHR$(13);"              [156]";
2080 NEXTN:PRINT#4,CHR$(27);"2";
2090 CLOSE4:CLOSE1:GOTO30
3000 REM THIS PROGRAM MUST LOAD "DCATMLP.D" WHICH WORKS WITH DISKAT
3005 REM SET UP FOR M/T SPIRIT AND EPSON PRINTERS